home *** CD-ROM | disk | FTP | other *** search
/ The See Clearly Method / TheSeeClearlyMethod.iso / Media / stub2.dir / 00003_Script_New Behavior < prev    next >
Text File  |  2002-02-15  |  801b  |  26 lines
  1.  
  2. on mouseEnter me
  3.   cursor 280
  4.   
  5. end
  6.  
  7. on mouseLeave me
  8.   cursor 0
  9.   
  10. end      
  11.  
  12. global myFile
  13. on mouseUp me
  14.   if objectP(myFile) then set myFile = 0  --Delete the instance if it already exists
  15.   myFile = new(xtra "fileio")    -- Create an instance of FileIO
  16.   openFile (myFile, "c:\agreed.txt",0)--Open the file with R/W access  
  17.   delete(myFile) --deletes the file
  18.   createFile (myFile, "c:\agreed.txt") --creates the file again
  19.   openFile(myFile,"c:\agreed.txt",0) --Open the file with R/W access
  20.   mySaveString = member("agreed").text --puts the contents of the field 'input' into the variable mySaveString
  21.   writeString(myFile,mySaveString) --writes text to the file
  22.   closeFile(myFile) -- Close the file 
  23.   myFile = 0 -- Dispose of the instance
  24.   go to movie "qtpc"
  25. end
  26.